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-- DoubleDefs.Mesa Edited by Johnsson on March 10, 1978 5:23 PM 

DIRECTORY 

InlineDefs: FROM "in! inedef s" , 
Mopcodes: FROM "mopcodes"; 

DoubleDefs: DEFINITIONS » 
BEGIN 

LongCARDINAL: TYPE = In! ineDef s .LongCARDINAL; 
Comparison: TYPE « {less, equal, greater}; 

DDivide: PROCEDURE [num. den: LongCARDINAL] 

RETURNS [quotient, remainder: LongCARDINAL]; 
DMultiply: PROCEDURE [a.b: LongCARDINAL] 

RETURNS [product: LongCARDINAL]; 
DAdd: PROCEDURE [a.b: LongCARDINAL] RETURNS [LongCARDINAL] ■ 

MACHINE CODE BEGIN Mopcodes . zDADD END; 
DSub: PROCEDURE [a.b: LongCARDINAL] RETURNS [LongCARDINAL] - 

MACHINE CODE BEGIN Mopcodes . zDSUB END; 
DNeg: PROCEDURE [a: LongCARDINAL] RETURNS [LongCARDINAL]; 
Dine: PROCEDURE [a: LongCARDINAL] RETURNS [LongCARDINAL]; 
DCompare: PROCEDURE [a.b: LongCARDINAL] RETURNS [Comparison] « 

MACHINE CODE BEGIN Mopcodes . zDCOMP; Mopcodes . zINC END; 
AppendDouble: PROCEDURE [s:STRING, a: LongCARDINAL]; 

END. 


